inherited sprBettaEnergy: TsprBettaEnergy
  Left = 444
  Top = 342
  Caption = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082' '#1082#1086#1101#1092#1092#1080#1094#1080#1077#1085#1090#1086#1074' Betta '#1076#1083#1103' '#1088#1072#1089#1089#1095#1077#1090#1072' '#1069#1069' '#1087#1086' '#1102#1088'.'#1083#1080#1094#1072#1084
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel2: TPanel
    Top = 25
    Height = 529
    inherited PageControl1: TPageControl
      Height = 529
      inherited tsTab: TTabSheet
        inherited GroupBox3: TGroupBox
          Height = 501
          inherited dbgRefer: TDBGridEh
            Height = 484
            Columns = <
              item
                EditButtons = <>
                FieldName = 'ID'
                Footers = <>
                Visible = False
              end
              item
                EditButtons = <>
                FieldName = 'PYEAR'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'PMONTH'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'BETTA'
                Footers = <>
                Width = 78
              end
              item
                EditButtons = <>
                FieldName = 'CREATEDATE'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'CREATEUSERID'
                Footers = <>
                Visible = False
              end
              item
                EditButtons = <>
                FieldName = 'MODIFYDATE'
                Footers = <>
                Visible = False
              end
              item
                EditButtons = <>
                FieldName = 'MODIFYUSERID'
                Footers = <>
                Visible = False
              end
              item
                EditButtons = <>
                FieldName = 'BDATE'
                Footers = <>
              end>
          end
        end
      end
      inherited tsForm: TTabSheet
        inherited GroupBox2: TGroupBox
          Width = 377
          Height = 173
          object Label1: TLabel [0]
            Left = 36
            Top = 59
            Width = 70
            Height = 13
            Alignment = taRightJustify
            AutoSize = False
            Caption = #1050#1086#1101#1092#1092#1080#1094#1080#1077#1085#1090
          end
          object Label2: TLabel [1]
            Left = 36
            Top = 27
            Width = 70
            Height = 13
            Alignment = taRightJustify
            AutoSize = False
            Caption = #1044#1077#1081#1089#1090#1074#1091#1077#1090' '#1089
          end
          inherited pnlButtons: TPanel
            Top = 140
            Width = 373
            TabOrder = 3
            inherited SpeedButton1: TSpeedButton
              Left = 174
            end
            inherited SpeedButton2: TSpeedButton
              Left = 276
            end
          end
          object DBComboBoxEh1: TDBComboBoxEh
            Left = 116
            Top = 24
            Width = 121
            Height = 19
            AlwaysShowBorder = True
            DataField = 'PMONTH'
            DataSource = dscRefer
            EditButtons = <>
            Flat = True
            Items.Strings = (
              #1071#1085#1074#1072#1088#1100
              #1060#1077#1074#1088#1072#1083#1100
              #1052#1072#1088#1090
              #1040#1087#1088#1077#1083#1100
              #1052#1072#1081
              #1048#1102#1085#1100
              #1048#1102#1083#1100
              #1040#1074#1075#1091#1089#1090
              #1057#1077#1085#1090#1103#1073#1088#1100
              #1054#1082#1090#1103#1073#1088#1100
              #1053#1086#1103#1073#1088#1100
              #1044#1077#1082#1072#1073#1088#1100)
            KeyItems.Strings = (
              '1'
              '2'
              '3'
              '4'
              '5'
              '6'
              '7'
              '8'
              '9'
              '10'
              '11'
              '12')
            TabOrder = 0
            Visible = True
          end
          object DBNumberEditEh1: TDBNumberEditEh
            Left = 244
            Top = 24
            Width = 65
            Height = 19
            AlwaysShowBorder = True
            DataField = 'PYEAR'
            DataSource = dscRefer
            EditButton.Style = ebsUpDownEh
            EditButton.Visible = True
            EditButtons = <>
            Flat = True
            MinValue = 2010.000000000000000000
            TabOrder = 1
            Visible = True
          end
          object DBEditEh1: TDBEditEh
            Left = 116
            Top = 56
            Width = 193
            Height = 19
            AlwaysShowBorder = True
            DataField = 'BETTA'
            DataSource = dscRefer
            EditButtons = <>
            Flat = True
            TabOrder = 2
            Visible = True
          end
        end
      end
    end
  end
  inherited GroupBox1: TGroupBox
    Height = 0
    Visible = False
  end
  inherited dsRefer: TpFIBDataSet
    UpdateSQL.Strings = (
      'UPDATE RBETTA_ENERGY'
      '  SET BETTA = :BETTA'
      '  WHERE ID = :OLD_ID'
      '    ')
    DeleteSQL.Strings = (
      'UPDATE RBETTA_ENERGY'
      '  SET IS_DELETED = :IS_DELETED'
      '  WHERE ID = :OLD_ID'
      '    ')
    InsertSQL.Strings = (
      'INSERT INTO RBETTA_ENERGY('
      '    PMONTH,'
      '    PYEAR,'
      '    BETTA,'
      '    CREATEDATE,'
      '    CREATEUSERID,'
      '    MODIFYDATE,'
      '    MODIFYUSERID'
      ')'
      'VALUES('
      '    :PMONTH,'
      '    :PYEAR,'
      '    :BETTA,'
      '    :CREATEDATE,'
      '    :CREATEUSERID,'
      '    :MODIFYDATE,'
      '    :MODIFYUSERID'
      ')')
    RefreshSQL.Strings = (
      'SELECT'
      '    ID,'
      '    PMONTH,'
      '    PYEAR,'
      '    BETTA,'
      '    CREATEDATE,'
      '    CREATEUSERID,'
      '    MODIFYDATE,'
      '    MODIFYUSERID,'
      '    BDATE'
      'FROM'
      '    RBETTA_ENERGY '
      'where IS_DELETED = 0'
      '  and RBETTA_ENERGY.ID = :OLD_ID')
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    PMONTH,'
      '    PYEAR,'
      '    BETTA,'
      '    CREATEDATE,'
      '    CREATEUSERID,'
      '    MODIFYDATE,'
      '    MODIFYUSERID,'
      '    BDATE'
      'FROM'
      '    RBETTA_ENERGY '
      'where IS_DELETED = 0'
      'order by bdate desc')
    UpdateTransaction = MAINDM.pMainTransaction
    object dsReferID: TFIBIntegerField
      FieldName = 'ID'
    end
    object dsReferPMONTH: TFIBSmallIntField
      DisplayLabel = #1052#1077#1089#1103#1094
      FieldName = 'PMONTH'
    end
    object dsReferPYEAR: TFIBSmallIntField
      DisplayLabel = #1043#1086#1076
      FieldName = 'PYEAR'
    end
    object dsReferBETTA: TFIBFloatField
      DisplayLabel = #1050#1086#1101#1092#1092#1080#1094#1080#1077#1085#1090
      FieldName = 'BETTA'
    end
    object dsReferCREATEDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1089#1086#1079#1076#1072#1085#1080#1103
      FieldName = 'CREATEDATE'
    end
    object dsReferCREATEUSERID: TFIBIntegerField
      FieldName = 'CREATEUSERID'
    end
    object dsReferMODIFYDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1080#1079#1084#1077#1085#1077#1085#1080#1103
      FieldName = 'MODIFYDATE'
    end
    object dsReferMODIFYUSERID: TFIBIntegerField
      FieldName = 'MODIFYUSERID'
    end
    object dsReferBDATE: TFIBDateField
      DisplayLabel = #1044#1077#1081#1089#1090#1074#1091#1077#1090' '#1089
      FieldName = 'BDATE'
    end
  end
  inherited PropStorage: TPropStorageEh
    Section = 'sprBettaEnergy'
  end
end
